home *** CD-ROM | disk | FTP | other *** search
/ CD Classic / CD CLASSIC #1.iso / chess / chess.c < prev    next >
C/C++ Source or Header  |  1991-08-15  |  27KB  |  815 lines
  1. /*
  2.   C source for GNU CHESS
  3.  
  4.   Revision: 1991-01-20
  5.  
  6.   Modified by Daryl Baker for use in MS WINDOWS environment
  7.  
  8.   Copyright (C) 1986, 1987, 1988, 1989, 1990 Free Software Foundation, Inc.
  9.   Copyright (c) 1988, 1989, 1990  John Stanback
  10.  
  11.   This file is part of CHESS.
  12.  
  13.   CHESS is distributed in the hope that it will be useful, but WITHOUT ANY
  14.   WARRANTY.  No author or distributor accepts responsibility to anyone for
  15.   the consequences of using it or for whether it serves any particular
  16.   purpose or works at all, unless he says so in writing.  Refer to the CHESS
  17.   General Public License for full details.
  18.  
  19.   Everyone is granted permission to copy, modify and redistribute CHESS, but
  20.   only under the conditions described in the CHESS General Public License.
  21.   A copy of this license is supposed to have been given to you along with
  22.   CHESS so you can know your rights and responsibilities.  It should be in a
  23.   file named COPYING.  Among other things, the copyright notice and this
  24.   notice must be preserved on all copies.
  25. */
  26.  
  27. #define NOATOM                /*Minimize windows.h processing*/
  28. #define NOCLIPBOARD
  29. #define NOCREATESTRUCT
  30. #define NOFONT
  31. #define NOREGION
  32. #define NOSOUND
  33. #define NOWH
  34. #define NOCOMM
  35. #define NOKANJI
  36.  
  37. #include <windows.h>          /* required for all Windows applications */
  38. #include <string.h>
  39. #include <time.h>
  40.  
  41. #include "gnuchess.h"
  42.  
  43. #include "defs.h"
  44. #include "chess.h"
  45. #include "saveopen.h"
  46. #include "color.h"
  47.  
  48. DWORD clrBackGround;       /* rgb structures for various colors */
  49. DWORD clrBlackSquare;
  50. DWORD clrWhiteSquare;
  51. DWORD clrBlackPiece;
  52. DWORD clrWhitePiece;
  53. DWORD clrText;
  54.  
  55. static HBRUSH hBrushBackGround;
  56.  
  57. short boarddraw[64];       /* Display copies of the board */
  58. short colordraw[64];       /* Needed because while computer is calculating*/
  59.                            /* moves it updates board and color thus you can*/
  60.                            /* not repaint the screen accuratly */
  61.  
  62. struct PIECEBITMAP pieces[7];
  63.  
  64. HANDLE hInst;              /* current instance */
  65. HANDLE hAccel;
  66.  
  67. char szAppName[] = "Chess";
  68.  
  69. extern char mvstr[4][6];
  70. extern GLOBALHANDLE hBook;
  71. int coords = 1;
  72.  
  73. static int FirstSq = -1;         /* Flag is a square is selected */
  74. static int GotFirst = FALSE;
  75. static int EditActive = FALSE;   /* Edit mode? */
  76. static int User_Move = TRUE;     /* User or computer's turn */
  77.  
  78. static HMENU hMainMenu;
  79.  
  80.  
  81. int PASCAL WinMain(HANDLE hInstance, HANDLE hPrevInstance, LPSTR lpCmdLine,
  82.                   int nCmdShow);
  83.  
  84. static void _near MakeHelpPathName (char * szFileName);
  85. #define EXE_NAME_MAX_SIZE  128
  86.  
  87.  
  88. int PASCAL WinMain(HANDLE hInstance, HANDLE hPrevInstance, LPSTR lpCmdLine,
  89.                   int nCmdShow)
  90. {
  91.     HWND hWnd;
  92.     MSG msg;
  93.     POINT pt;
  94.  
  95.     lpCmdLine ++;
  96.  
  97.     if (!hPrevInstance)
  98.        if (!ChessInit(hInstance)) return (NULL);
  99.  
  100.     hInst = hInstance;            /* Saves the current instance         */
  101.  
  102.     QueryBoardSize (&pt);
  103.  
  104.     /* Create the mailn window.  It will be autosized in WM_CREATE message */
  105.     hWnd = CreateWindow(szAppName,    szAppName,
  106.           WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN,
  107.          CW_USEDEFAULT, CW_USEDEFAULT,
  108.          CW_USEDEFAULT, CW_USEDEFAULT,
  109.          NULL,    NULL,    hInstance,    NULL);
  110.  
  111.     if (!hWnd)    return (NULL);
  112.  
  113.     ShowWindow(hWnd, nCmdShow);              /* Shows the window         */
  114.  
  115.    /* Initialize chess */
  116.    if (init_main ( hWnd ) ) {
  117.       SMessageBox (hWnd, IDS_INITERROR,IDS_CHESS);
  118.       FreeGlobals ();
  119.       return (NULL);
  120.    }
  121.  
  122.    UpdateWindow(hWnd);                  /* Sends WM_PAINT message  */
  123.  
  124.    hAccel = LoadAccelerators (hInstance, szAppName);
  125.  
  126.    player = opponent;
  127.    ShowSidetoMove ();
  128.  
  129.    while (GetMessage(&msg, NULL, NULL, NULL)) {
  130.       if ( !TranslateAccelerator (hWnd, hAccel, &msg) ) {
  131.         TranslateMessage(&msg);
  132.         DispatchMessage(&msg);
  133.       }
  134.     }
  135.  
  136.     return (msg.wParam);       /* Returns the value from PostQuitMessage */
  137. }
  138.  
  139. long FAR PASCAL ChessWndProc( HWND hWnd, unsigned message, WORD wParam, LONG lParam)
  140. {
  141.    FARPROC lpProcAbout;
  142.    HMENU hMenu;
  143.    PAINTSTRUCT ps;
  144.    HDC hDC;
  145.    TEXTMETRIC tm;
  146.    int i;
  147.    POINT point;
  148.    OFSTRUCT pof;
  149.    char FileName[256], str[80];
  150.    int Status;
  151.    HANDLE hFile;
  152.  
  153.    switch (message) {
  154.        case WM_CREATE: {                /* message: window being created */
  155.          int xchar, ychar;
  156.  
  157.          GetStartupColors ( szAppName);
  158.  
  159.          hBrushBackGround = CreateSolidBrush ( clrBackGround );
  160.  
  161.          for ( i=pawn; i<pawn+6; i++ ) pieces[i].piece = LoadBitmap (hInst, MAKEINTRESOURCE(PAWNBASE+i));
  162.          for ( i=pawn; i<pawn+6; i++ ) pieces[i].mask = LoadBitmap (hInst, MAKEINTRESOURCE(PAWNBASE+6+i));
  163.          for ( i=pawn; i<pawn+6; i++ ) pieces[i].outline = LoadBitmap (hInst, MAKEINTRESOURCE(PAWNBASE+12+i));
  164.  
  165.  
  166.          hDC = GetDC (hWnd);
  167.          GetTextMetrics ( hDC, &tm);
  168.          xchar = tm.tmMaxCharWidth;
  169.          ychar = tm.tmHeight+tm.tmExternalLeading;
  170.  
  171.          /*Autosize main window */
  172.          QueryBoardSize (&point);            
  173.          SetWindowPos( hWnd, hWnd, 0,0,
  174.                  point.x+GetSystemMetrics(SM_CXFRAME)*2+50,
  175.                  point.y+GetSystemMetrics(SM_CYFRAME)*2+GetSystemMetrics(SM_CYMENU)+
  176.                  GetSystemMetrics(SM_CYCAPTION) + ychar,
  177.                  SWP_NOMOVE | SWP_NOZORDER);
  178.  
  179.          ReleaseDC ( hWnd, hDC);
  180.  
  181.          InitHitTest ();
  182.          Create_Children ( hWnd, hInst, xchar, ychar);
  183.          break;
  184.       }
  185.  
  186.      case MSG_DESTROY:
  187.          DestroyWindow ( hWnd );
  188.          break;
  189.  
  190.      case WM_DESTROY: {          /* message: window being destroyed */
  191.          char  szHelpFileName[EXE_NAME_MAX_SIZE+1];
  192.          MakeHelpPathName(szHelpFileName);
  193.          WinHelp(hWnd,szHelpFileName,HELP_QUIT,0L);
  194.  
  195.          DeleteObject (hBrushBackGround);
  196.          Hittest_Destructor ();
  197.          if ( hBook ) FreeBook();
  198.          FreeGlobals ();
  199.          SaveColors ( szAppName);
  200.          PostQuitMessage(0);
  201.           break;
  202.       }
  203.  
  204.       case WM_PAINT:
  205.  
  206.          if ( FirstSq != -1 ) {        /*Properly repaint hilighted square*/
  207.             POINT pt; RECT rect;
  208.             QuerySqOrigin ( FirstSq%8, FirstSq/8, &pt);
  209.             rect.left = pt.x; rect.right=pt.x+48;
  210.             rect.top = pt.y-48; rect.bottom = pt.y;
  211.             InvalidateRect (hWnd, &rect, FALSE);
  212.          }
  213.  
  214.          hDC = BeginPaint ( hWnd, &ps);
  215.          Draw_Board ( hDC, flag.reverse, clrBlackSquare, clrWhiteSquare );
  216.          if ( coords ) DrawCoords ( hDC, flag.reverse, clrBackGround, clrText);
  217.          DrawAllPieces ( hDC, flag.reverse, boarddraw, colordraw, clrBlackPiece, clrWhitePiece );
  218.          EndPaint ( hWnd, &ps);
  219.  
  220.          if ( FirstSq != -1 ) HiliteSquare ( hWnd, FirstSq);
  221.          break;
  222.  
  223.       case WM_CTLCOLOR:     /*Enable setting colors for the message controls*/
  224.       {
  225.          POINT point;
  226.          if ( HIWORD(lParam) == CTLCOLOR_STATIC) {
  227.             UnrealizeObject ( hBrushBackGround );
  228.             SetBkColor ( wParam, clrBackGround);
  229.             SetBkMode ( wParam, TRANSPARENT);
  230.             SetTextColor ( wParam, clrText);
  231.             point.x = point.y = 0;
  232.             ClientToScreen ( hWnd, &point);
  233.             SetBrushOrg (wParam, point.x, point.y);
  234.             return (DWORD) hBrushBackGround;
  235.          } else
  236.             return DefWindowProc ( hWnd, message, wParam, lParam);
  237.       }
  238.  
  239.       case WM_ERASEBKGND:
  240.       {
  241.          RECT rect;
  242.          UnrealizeObject ( hBrushBackGround);
  243.          GetClientRect ( hWnd, &rect);
  244.          FillRect ( (HDC)wParam, &rect, hBrushBackGround);
  245.          return 1;
  246.       }
  247.  
  248.       case WM_INITMENUPOPUP:
  249.          if ( !EditActive ) Init_Menus (hWnd, wParam, lParam);
  250.          break;
  251.  
  252.       case WM_LBUTTONDOWN:
  253.  
  254.          /* If computer is thinking on human's time stop it at the first
  255.             button click.  add test to ensure that "human" can't interupt
  256.             the computer from thinking through its turn */
  257.          if ( User_Move ) {
  258.             flag.timeout = true;
  259.             flag.bothsides = false;
  260.          }
  261.  
  262.          /* Don't continue unle